home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapfile.plp < prev    next >
Text File  |  1993-11-30  |  16KB  |  667 lines
  1. /************************************************************************
  2. *    ファイル操作                            *
  3. ************************************************************************/
  4. /*    ディレクトリ取得    */
  5. %getcdir2 {
  6.     case    (@nochar(@getcdir),
  7.          {3},{im(@getchar(@getcdir,1,2))},,{im(@getcdir)});
  8. };
  9.  
  10. /*    ファイル名にワイルドカード(*,?)が含まれるかチェックする    */
  11. %wild{
  12.     [file1]
  13.     case    (@nochar(file1)==0,
  14.         {Yes},    {im({No})},
  15.         {No},    {case    (@getchar(file1,1,1),
  16.                 {*},    {im({Yes})},
  17.                 {?},    {im({Yes})},,
  18.                     {im(@wild(@getchar(file1,2)))});});
  19. };
  20.  
  21. /*    入力ファイル選択（ワイルドカード不可）    */
  22. %FILEsel0{
  23.     [MSG,TYP]
  24.     SNDMSG({erande_f.snd});
  25.     footnote(MSG);
  26.     case    (TYP={},
  27.         {Yes},    {OLDFILE:=@filesel},
  28.         {No},    {OLDFILE:=@filesel(TYP)});
  29.     case    (OLDFILE={},
  30.         {Yes},    {im({})},
  31.         {No},    {case    (@wild(OLDFILE),
  32.                 {Yes},
  33.                 {SNDMSG({kaknin_f.snd});
  34.                 footnote({ワイルドカード指定は出来ません});
  35.                 select({ワイルドカード指定は出来ません},
  36.                     99999,,{ 確認 },);
  37.                 FILEsel0(MSG,TYP)},
  38.                 {No},
  39.                 {case    (@nochar(@getcdir)==3,
  40.                     {Yes},
  41.                     {OLDFILE:=@getcdir|OLDFILE},
  42.                     {No},
  43.                     {OLDFILE:=@getcdir|{\}|OLDFILE});
  44.                 case    (@filechk(OLDFILE),
  45.                     {No},
  46.                     {SNDMSG({okasi_f.snd});
  47.                     footnote(OLDFILE|{ がありません});
  48.                     select(OLDFILE|{ がありません},
  49.                         99999,,{ 確認 },);
  50.                     FILEsel0(MSG,TYP);},
  51.                     {Yes},
  52.                     {im(OLDFILE)});});});
  53. };
  54.  
  55. /*    入力ファイル選択（ワイルドカード可）    */
  56. %FILEsel1{
  57.     [MSG,TYP]
  58.     SNDMSG({erande_f.snd});
  59.     footnote(MSG);
  60.     case    (TYP={},
  61.         {Yes},    {OLDFILE:=@filesel},
  62.         {No},    {OLDFILE:=@filesel(TYP)});
  63.     case    (OLDFILE={},
  64.         {Yes},    {im({})},
  65.         {No},    {case    (@wild(OLDFILE),
  66.                 {Yes},
  67.                 {case    (@nochar(@getcdir)==3,
  68.                     {Yes},
  69.                     {OLDFILE:=@getcdir|OLDFILE},
  70.                     {No},
  71.                     {OLDFILE:=@getcdir|{\}|OLDFILE});
  72.                 im(OLDFILE);},
  73.                 {No},
  74.                 {case    (@nochar(@getcdir)==3,
  75.                     {Yes},
  76.                     {OLDFILE:=@getcdir|OLDFILE},
  77.                     {No},
  78.                     {OLDFILE:=@getcdir|{\}|OLDFILE});
  79.                 case    (@filechk(OLDFILE),
  80.                     {No},
  81.                     {SNDMSG({okasi_f.snd});
  82.                     footnote(OLDFILE|{ がありません});
  83.                     select(OLDFILE|{ がありません},
  84.                         99999,,{ 確認 },);
  85.                     FILEsel1(MSG,TYP);},
  86.                     {Yes},
  87.                     {im(OLDFILE)});});});
  88. };
  89.  
  90. /*    ファイル名変更    */
  91. %RENAME{
  92.     %FILEsel2{
  93.     SNDMSG({nyuryo_f.snd});
  94.     footnote({新ﾌｧｲﾙ名を入力して下さい  旧ﾌｧｲﾙ名 }|OLDFILE);
  95.     NEWFILE:=@input({新ファイル名を入力して下さい},,@tail(OLDFILE,{\}));
  96.     im(NEWFILE);
  97.     };
  98.  
  99.     loop({
  100.     case    (@FILEsel1({ファイル名を変更するファイルを}|
  101.                 {指定して下さい},)={},
  102.         {Yes},    {im({No})},
  103.         {No},    {case    (@FILEsel2={},
  104.                 {Yes},{im({No})},
  105.                 {No},
  106.                 {footnote({ファイル名変更  }|
  107.                     OLDFILE|{ -> }|NEWFILE);
  108.                 command({ren }|OLDFILE|{ }|NEWFILE);
  109.                 im({Yes});});});
  110.     });
  111. };
  112.  
  113. /*    全ファイル削除    */
  114. %DELall{
  115.     SNDMSG({nyuryo_f.snd});
  116.     footnote({全ファイル削除するディレクトリへ移動して}|
  117.         {右クリックして下さい});
  118.     %dmy    @filesel;
  119.     OLDDIR:=@getcdir;
  120.     SNDMSG({kaknin_f.snd});
  121.     case    (@nochar(OLDDIR)==3,
  122.         {Yes},    {footnote({全ファイル削除  }|OLDDIR|{*.*})},
  123.         {No},    {footnote({全ファイル削除  }|OLDDIR|{\*.*})});
  124.     select    (OLDDIR|{ の全ファイルを削除してもよろしいですか？},99999,,
  125.         { は  い },{setcdir(OLDDIR);command({echo y|del *.*})},
  126.         { いいえ },);
  127. };
  128.  
  129. /*    ファイル凍結    */
  130. %LHAarc{
  131.     %FILEsel2{
  132.     SNDMSG({nyuryo_f.snd});
  133.     footnote({書庫ﾌｧｲﾙ名を入力して下さい  元ﾌｧｲﾙ }|OLDFILE);
  134.     NEWFILE:=    @filesel({LZH});
  135.     NEWDIR:=    @getcdir;
  136.     case    (NEWFILE<>{},
  137.         {Yes},{case    (@nochar(NEWDIR)==3,
  138.                 {Yes},    {NEWFILE:=NEWDIR|NEWFILE},
  139.                 {No},    {NEWFILE:=NEWDIR|{\}|NEWFILE})});
  140.     im(NEWFILE);
  141.     };
  142.  
  143.     loop({
  144.     case    (@FILEsel1({圧縮凍結するファイルを指定して下さい},)={},
  145.         {Yes},    {im({No})},
  146.         {No},    {case    (@FILEsel2={},
  147.                 {Yes},{im({No})},
  148.                 {No},
  149.                 {footnote({ファイル圧縮凍結処理中  }|
  150.                 OLDFILE|{ -> }|NEWFILE);
  151.                 case    (DIR2={},
  152.                     {No},
  153.                     {command(DIR2|{\lha u }|NEWFILE|
  154.                     { }|OLDFILE)},
  155.                     {Yes},
  156.                     {command({lha u }|NEWFILE|
  157.                     { }|OLDFILE)});
  158.             im({Yes});});});
  159.     });
  160. };
  161.  
  162. /*    ファイル解凍    */
  163. %LHAext{
  164.     loop({
  165.     case    (@FILEsel0({解凍する *.LZH ファイルを指定して下さい},{LZH})={},
  166.         {Yes},    {im({No})},
  167.         {No},    {var LHADIR[40];
  168.             SNDMSG({nyuryo_f.snd});
  169.             footnote({解凍したファイルを置くディレクトリに移動して}|
  170.             {右クリックして下さい});
  171.             filesel;
  172.             LHADIR:=@getcdir;
  173.             case    (@nochar(LHADIR)={3},
  174.                 {No},{LHADIR:=LHADIR|{\}});
  175.             footnote({ファイル解凍処理中  }|OLDFILE);
  176.             case    (DIR2={},
  177.                 {No},
  178.                 {command(DIR2|{\lha x }|OLDFILE|{ }|LHADIR)},
  179.                 {Yes},
  180.                 {command({lha x }|OLDFILE|{ }|LHADIR)});
  181.             im({Yes});});
  182.     });
  183. };
  184.  
  185. /*    凍結ファイル内容表示    */
  186. %LHAlst{
  187.     loop({
  188.     case    (@FILEsel0({内容表示する *.LZH ファイルを}|
  189.         {指定して下さい},{LZH})={},
  190.         {Yes},    {im({No})},
  191.         {No},    {footnote({凍結ファイル内容表示中  }|OLDFILE);
  192.             case    (DIR2={},
  193.                 {No},    {command(DIR2|{\lha l }|OLDFILE)},
  194.                 {Yes},    {command({lha l }|OLDFILE)});
  195.             im({Yes});});
  196.     });
  197. };
  198.  
  199. /*    ファイル石化    */
  200. %ISHstr{
  201.     loop({
  202.     case    (@FILEsel1({*.ISH ファイルに変換するファイルを}|
  203.         {指定して下さい},)={},
  204.         {Yes},    {im({No})},
  205.         {No},    {case    (OLDFILE={},
  206.                 {Yes},{im({No})},
  207.                 {No},
  208.                 {footnote({ISHファイル変換処理中  }|OLDFILE);
  209.                 case    (DIR2={},
  210.                     {No},
  211.                     {command(DIR2|{\ish }|OLDFILE|{ /s8})},
  212.                     {Yes},
  213.                     {command({ish }|OLDFILE|{ /s8})});
  214.                 im({Yes});});});
  215.     });
  216. };
  217.  
  218. /*    ファイル解石    */
  219. %ISHres{
  220.     loop({
  221.     case    (@FILEsel1({復元する *.ISH ファイルを指定して下さい},{ISH})={},
  222.         {Yes},    {im({No})},
  223.         {No},    {case    (OLDFILE={},
  224.                 {Yes},{im({No})},
  225.                 {No},
  226.                 {footnote({ISHファイル復元処理中  }|OLDFILE);
  227.                 case    (DIR2={},
  228.                     {No},
  229.                     {command(DIR2|{\ish }|OLDFILE|{ /r})},
  230.                     {Yes},
  231.                     {command({ish }|OLDFILE|{ /r})});
  232.                     im({Yes});});});
  233.     });
  234. };
  235.  
  236. /*    ダイエット処理    */
  237. %DIETarc{
  238.     loop({
  239.     case    (@FILEsel1({ダイエットするファイルを指定して下さい},)={},
  240.         {Yes},    {im({No})},
  241.         {No},    {case    (OLDFILE={},
  242.                 {Yes},{im({No})},
  243.                 {No},
  244.                 {footnote({ダイエット処理中  }|OLDFILE);
  245.                 case    (DIR2={},
  246.                     {No},
  247.                     {command(DIR2|{\diet }|OLDFILE)},
  248.                     {Yes},
  249.                     {command({diet }|OLDFILE)});
  250.                 im({Yes});});});
  251.     });
  252. };
  253.  
  254. /*    ダイエットファイル復元    */
  255. %DIETres{
  256.     loop({
  257.     case    (@FILEsel1({復元するダイエットファイルを}|
  258.         {指定して下さい},)={},
  259.         {Yes},    {im({No})},
  260.         {No},    {case    (OLDFILE={},
  261.                 {Yes},{im({No})},
  262.                 {No},
  263.                 {footnote({ダイエットファイル復元処理中  }|
  264.                 OLDFILE);
  265.                 case    (DIR2={},
  266.                     {No},
  267.                     {command(DIR2|{\diet -ra }|OLDFILE)},
  268.                     {Yes},
  269.                     {command({diet -ra }|OLDFILE)});
  270.                 im({Yes});});});
  271.     });
  272. };
  273.  
  274. /*    差分ファイル作成処理    */
  275. %BDIFF{
  276.     %FILEsel2{
  277.         SNDMSG({nyuryo_f.snd});
  278.         footnote({新ﾌｧｲﾙ名を入力して下さい  旧ﾌｧｲﾙ }|OLDFILE);
  279.         NEWFILE:=@filesel;NEWDIR:=@getcdir;
  280.         case    (NEWFILE<>{},
  281.             {Yes},{case(@nochar(NEWDIR)==3,
  282.                 {Yes},{NEWFILE:=NEWDIR|NEWFILE},
  283.                 {No},{NEWFILE:=NEWDIR|{\}|NEWFILE})});
  284.         im(NEWFILE);
  285.         };
  286.  
  287.     loop    ({
  288.         case    (@FILEsel0({差分を作成する旧ファイルを}|
  289.                 {指定して下さい},)={},
  290.             {Yes},    {im({No})},
  291.             {No},    {case    (@FILEsel2={},
  292.                     {Yes},
  293.                     {im({No})},
  294.                     {No},
  295.                     {footnote({ファイル差分作成処理中  }|
  296.                         OLDFILE|{ -> }|NEWFILE);
  297.                     command({BDIFF }|OLDFILE|{ }|NEWFILE);
  298.                     im({Yes})})});
  299.     });
  300. };
  301.  
  302. /*    差分ファイル復元処理    */
  303. %BUPDATE{
  304.     loop    ({
  305.         case    (@FILEsel0({差分ファイルを指定して下さい},{BDF})={},
  306.             {Yes},    {im({No})},
  307.             {No},    {footnote({ﾌｧｲﾙ差分更新処理中  差分ﾌｧｲﾙ }|
  308.                     OLDFILE);
  309.                 command({BUPDATE }|OLDFILE);
  310.                 im({Yes})});
  311.     });
  312. };
  313.  
  314. /*    ディレクトリ作成    */
  315. %MKDIR{
  316.     SNDMSG({nyuryo_f.snd});
  317.     footnote({作成するディレクトリ名を入力して下さい});
  318.     NEWDIR:=@filesel;
  319.     OLDDIR:=@getcdir;
  320.     case    (@nochar(OLDDIR)==3,
  321.         {Yes},    {NEWDIR:=OLDDIR|NEWDIR},
  322.         {No},    {NEWDIR:=OLDDIR|{\}|NEWDIR});
  323.     mkdir2(NEWDIR);
  324. };
  325.  
  326. /*    ディレクトリ削除    */
  327. %RMDIR{
  328.     SNDMSG({nyuryo_f.snd});
  329.     footnote({削除するディレクトリへ移動して右クリックして下さい});
  330.     %dmy    @filesel;
  331.     OLDDIR:=@getcdir;
  332.     case    (@nochar(OLDDIR)==3,
  333.         {Yes},    {SNDMSG({kaknin_f.snd});
  334.             footnote({ルートディレクトリは削除出来ません});
  335.             select({ルートディレクトリは削除出来ません},
  336.                 99999,,{ 確認 },)},
  337.         {No},    {SNDMSG({kaknin_f.snd});
  338.             footnote({削除ディレクトリ }|OLDDIR);
  339.             select(    {ディレクトリ }|OLDDIR|
  340.                 { を削除してもよろしいですか？},99999,,
  341.             { は  い },    {setcdir2(@body(OLDDIR,,{\}));
  342.                     command({rmdir }|@tail(OLDDIR,{\}));},
  343.             { いいえ },);});
  344. };
  345.  
  346. /*    メモを削除    */
  347. %delmemo{
  348.     loop({
  349.     case(@mcheck>=memono,{Yes},{mclose(3)});
  350.     im(@mcheck>=memono);
  351.     });
  352.     CloseAllMemo;
  353.     loop({
  354.     case    (@mlast>=memono,
  355.         {Yes},    {case(@mcheck!=@mlast,{Yes},{mopen(@mlast)});
  356.             mclose(3);
  357.             im({Yes})},
  358.         {No},    {im({No})});
  359.     });
  360. };
  361.  
  362. /*    複数ファイルコピー    */
  363. %fscopy{
  364.     SNDMSG({erande_f.snd});
  365.     footnote({複写するファイルを指定して下さい});
  366.     multi;
  367.     case    (@mlast=memono,
  368.         {Yes},    {SNDMSG({nyuryo_f.snd});
  369.             footnote({複写先ディレクトリに移動して右クリックして}|
  370.                 {下さい});
  371.             %a @filesel;
  372.             footnote({});
  373.             case    (a<>{.},
  374.                 {Yes},    {SNDMSG({kaknin_f.snd});
  375.                     footnote({ファイルを複写して}|
  376.                         {よろしいですか？});
  377.                     select({ファイルを複写して}|
  378.                         {よろしいですか？},
  379.                         99999,delmemo,
  380.                         { は  い },
  381.                     {Count({command({COPY }|TARPATH)})},
  382.                         { いいえ },delmemo)},
  383.                 {No},    delmemo)});
  384. };
  385.  
  386. /*    複数ファイル削除    */
  387. %fsdel{
  388.     SNDMSG({erande_f.snd});
  389.     footnote({削除するファイルを指定して下さい});
  390.     multi;
  391.     case    (@mlast=memono,
  392.         {Yes},    {SNDMSG({kaknin_f.snd});
  393.             footnote({ファイルを削除してよろしいですか？});
  394.             select({ファイルを削除して}|
  395.                 {よろしいですか？},
  396.                 99999,delmemo,
  397.                 { は  い },
  398.                 {Count({command({del }|TARPATH)})},
  399.                 { いいえ },delmemo)},
  400.         {No},    delmemo);
  401. };
  402.  
  403. /*    複数ファイル移動    */
  404. %fsmove{
  405.     SNDMSG({erande_f.snd});
  406.     footnote({移動するファイルを指定して下さい});
  407.     multi;
  408.     case    (@mlast=memono,
  409.         {Yes},    {SNDMSG({nyuryo_f.snd});
  410.             footnote({移動先ディレクトリに移動して右クリックして}|
  411.                 {下さい});
  412.             %a    @filesel;
  413.             footnote({});
  414.             case    (a<>{.},
  415.                 {Yes},{SNDMSG({kaknin_f.snd});
  416.                     footnote({ファイルを移動して}|
  417.                         {よろしいですか？});
  418.                     select({ファイルを移動して}|
  419.                         {よろしいですか？},
  420.                         99999,delmemo,
  421.                         { は  い },
  422.                     {Count({command({COPY }|TARPATH);
  423.                       delfile(TARPATH)})},
  424.                         { いいえ },delmemo)},
  425.  
  426.                 {No},    delmemo)});
  427. };
  428.  
  429. /*    複数ファイル凍結    */
  430. %fsarc{
  431.     var arcpath[80];
  432.     var arcfile[12];
  433.     SNDMSG({erande_f.snd});
  434.     footnote({凍結するファイルを指定して下さい});
  435.     multi;
  436.     case    (@mlast=memono,
  437.         {Yes},    {SNDMSG({nyuryo_f.snd});
  438.             footnote({凍結ファイル名を入力して下さい}|
  439.                 {（｢.LZH｣は不要）});
  440.             arcfile:=@filesel;
  441.             footnote({});
  442.             arcpath:=@getcdir2;
  443.             case    (arcfile<>{},
  444.                 {Yes},{SNDMSG({kaknin_f.snd});
  445.                     footnote({ファイルを凍結して}|
  446.                         {よろしいですか？});
  447.                     select({ファイルを凍結して}|
  448.                         {よろしいですか？},
  449.                         99999,delmemo,
  450.                         { は  い },
  451.                         {Count({command({lha a }|
  452.                             arcpath|
  453.                             {\}|@head(arcfile,{.})|
  454.                             { }|TARPATH)})},
  455.                         { いいえ },
  456.                         delmemo)},
  457.                 {No},    delmemo)});
  458. };
  459.  
  460. /*    複数ファイル解凍    */
  461. %fsext{
  462.     var arcfile[12];
  463.     var newdir[8];
  464.  
  465.     %getarcfile{[MEMO,OPR]
  466.     arcfile:=@head(@getchar(@memo(MEMO,@xlinenum,1),3,12),{ });
  467.     case    (arcfile<>{} && arcfile<>{------------} && arcfile<>{sting} &&
  468.              arcfile<>{Name},
  469.         {Yes},    {OPR},,
  470.             {mclose(1);
  471.             mopen(memono);
  472.             mclose(1);
  473.             mopen(memono+1)});
  474.     };
  475.  
  476.     %getlzh{
  477.     CloseAllMemo;
  478.     mopen(memono+1);
  479.     getarcfile(memono+1,    {mclose(1);
  480.                 madd(memono,arcfile|{\n});
  481.                 mopen(memono);
  482.                 mclose(1);
  483.                 mopen(memono+1)});
  484.     };
  485.  
  486.     %extfile{
  487.     CloseAllMemo;
  488.     mopen(memono+1);
  489.     mclose(2);
  490.     footnote({解凍先ディレクトリに移動して右クリックして下さい});
  491.     %a @filesel;
  492.     footnote({});
  493.     case    (a<>{.},
  494.         {Yes},    {SNDMSG({nyuyro_f.snd});
  495.             newdir:=@input({作成するディレクトリ名を}|
  496.                     {入力して下さい\n}|
  497.                       {（空入力または右クリックで制作しません）});
  498.             SNDMSG({kaknin_f.snd});
  499.             select({ファイルを解凍してもよろしいですか？},
  500.                 99999,delmemo,
  501.                 { は  い },
  502.                 {case    (newdir<>{},
  503.                     {Yes},    {command({MD }|newdir);
  504.                         command({CD }|newdir)});
  505.                 case    (@nolmemo(memono)={0},
  506.                     {Yes},
  507.                     {command({lha e }|NEWDIR|{\}|NEWFILE)},
  508.                     {No},
  509.                     {max:=@nolmemo(memono);
  510.                     now:={1};
  511.                     Count({
  512.                     command({lha e }|NEWDIR|{\}|NEWFILE|
  513.                         { }|TARPATH);
  514.                     })})},
  515.                 { いいえ },
  516.                 delmemo)},
  517.         {No},    delmemo);
  518.     };
  519.  
  520.     %out{
  521.     case(@nolmemo(memono)<>{0},{Yes},{extfile});
  522.     delmemo;
  523.     };
  524.  
  525.     SNDMSG({erande_f.snd});
  526.     footnote({解凍するファイルを指定して下さい});
  527.     NEWFILE:=@filesel;
  528.     NEWDIR:=@getcdir2;
  529.     case    (NEWFILE<>{} && @tail(NEWFILE,{.})={LZH},
  530.         {Yes},
  531.         {setcdir(DIR1);
  532.         command({lha l }|NEWDIR|{\}|NEWFILE|{ > }|TEMPPATH|{\tmpfile});
  533.         madd(memono,{});
  534.         mopen(memono,0,266,639,459,{w});
  535.         mclose(1);
  536.         mread(TEMPPATH|{\tmpfile},memono+1);
  537.         mopen(memono+1,0,21,639,265,{w});
  538.         footnote({終了選択全部},{b});
  539.         SNDMSG({erande_f.snd});
  540.         loop({
  541.         waitx();
  542.         case    (@xtype,
  543.             memono+1,{getlzh;im({Yes})},
  544.             101,    {out;im({No})},
  545.             201,    {out;im({No})},
  546.             102,    {getlzh;im({Yes})},
  547.             202,    {getlzh;im({Yes})},
  548.             103,    {extfile;im({No})},
  549.             203,    {extfile;im({No})},
  550.                 ,{im({Yes})});
  551.         });
  552.     delfile(TEMPPATH|{\tmpfile});
  553.     });
  554. };
  555.  
  556. /*    コマンド実行    */
  557. %Count{[OPR]
  558.     CloseAllMemo;
  559.     mopen(memono);
  560.     mclose(2);
  561.     loop({
  562.     case    (max > now,
  563.         {Yes},    {TARPATH:=@memo(memono,now,1);
  564.             OPR;
  565.             now:=now+1;
  566.             im({Yes})},
  567.         {No},    {im({No})});
  568.     });
  569.     delmemo;
  570. };
  571.  
  572. /*    複数ファイル選択処理    */
  573. %multi{
  574.     loop({
  575.     NEWFILE:=@filesel;
  576.     NEWDIR:=@getcdir2;
  577.     case    (NEWFILE<>{},
  578.         {Yes},    {case(@mlast>=memono,{Yes},{mclose(1)});
  579.             madd(memono,NEWDIR|{\}|NEWFILE|{\n});
  580.             mopen(memono,0,132,369,449,{w});
  581.             im({Yes})},
  582.         {No},    {case    (@mlast=memono,
  583.                 {Yes},    {SNDMSG({kaknin_f.snd});
  584.                     footnote({確認},{b});
  585.                     loop({
  586.                     waitx();
  587.                     case    (@xtype,
  588.                         101,{im({No})},
  589.                         102,{im({No})});
  590.                     });
  591.                     CloseAllMemo;
  592.                     mopen(memono);
  593.                     mclose(1);
  594.                     im({No})},
  595.                 {No},{im({No})})});
  596.     });
  597.     max:=@nolmemo(memono);
  598.     now:={1};
  599. };
  600.  
  601. /*    処理選択    */
  602. %FILEman1{
  603.     loop({
  604.     SNDMSG({erande_f.snd});
  605.     footnote({ファイル基本操作の処理を選択して下さい});
  606.     select({ファイル基本操作メニュー},99999,{im({No})},
  607.         { ファイル複写     -copy     },{fscopy;im({Yes})},
  608.         { ファイル移動     -copy&del },{fsmove;im({Yes})},
  609.         { ファイル名変更   -rename   },{RENAME;im({Yes})},
  610.         { 全ファイル削除   -del *.*  },{DELall;im({Yes})},
  611.         { ファイル削除     -del      },{fsdel;im({Yes})},
  612.         {           終  了           },{im({No})});
  613.     });
  614. };
  615. %FILEman2{
  616.     loop({
  617.     SNDMSG({erande_f.snd});
  618.     footnote({ファイル応用操作の処理を選択して下さい});
  619.     select({ファイル応用操作メニュー},99999,{im({No})},
  620.         { ファイル凍結     >LHA u    },{LHAarc;im({Yes})},
  621.         { 複数ファイル凍結 >LHA u    },{fsarc;im({Yes})},
  622.         { ファイル解凍     >LHA x    },{LHAext;im({Yes})},
  623.         { 指定ファイル解凍 >LHA e    },{fsext;im({Yes})},
  624.         { 凍結ファイル一覧 >LHA l    },{LHAlst;im({Yes})},
  625.         { ファイル石化     >ISH /s   },{ISHstr;im({Yes})},
  626.         { ファイル解石     >ISH /r   },{ISHres;im({Yes})},
  627.         { ファイル圧縮     >DIET     },{DIETarc;im({Yes})},
  628.         { ファイル復元     >DIET -ra },{DIETres;im({Yes})},
  629.         { ファイル差分作成 >BDIFF    },{BDIFF;im({Yes})},
  630.         { ファイル差分更新 >BUPDATE  },{BUPDATE;im({Yes})},
  631.         {           終  了           },{im({No})});
  632.     });
  633. };
  634. %DIRman    {
  635.     loop({
  636.     SNDMSG({erande_f.snd});
  637.     footnote({ディレクトリ操作の処理を選択して下さい});
  638.     select({ディレクトリ操作メニュー},99999,{im({No})},
  639.         { ディレクトリ作成 -mkdir },{MKDIR;im({Yes})},
  640.         { ディレクトリ削除 -rmdir },{RMDIR;im({Yes})},
  641.         {         終  了          },{im({No})});
  642.     });
  643. };
  644. %PVAPFILE{
  645.     loop({
  646.     SNDMSG({erande_f.snd});
  647.     footnote({ファイル操作を選択して下さい});
  648.     select({ファイル操作メインメニュー},99999,{im({No})},
  649.         { ファイル基本操作 },{FILEman1;im({Yes})},
  650.         { ファイル応用操作 },{FILEman2;im({Yes})},
  651.         { ディレクトリ操作 },{DIRman;im({Yes})},
  652.         {      終  了      },{im({No})});
  653.     });
  654. };
  655.  
  656. /*    実行    */
  657. var max[99];
  658. var now[99];
  659. var OLDFILE[80];
  660. var NEWFILE[80];
  661. var OLDDIR[80];
  662. var NEWDIR[80];
  663. var TARPATH[80];
  664. CloseAllMemo;
  665. %memono @mlast+1;
  666. PVAPFILE;
  667.